package SQL::Builder::Hints;

use warnings;
use strict;

use SQL::Builder::Base;
use SQL::Builder::List;
use base qw(SQL::Builder::List);

sub init {
      my $self = shift;
      
      $self->SUPER::init();
      
      $self->joiner(" ");
      
      return $self
}

sub sql	{
      my $self = shift;
      
      my $res = "";
      my $hints = $self->list;
      if ($hints) {
            foreach (@$hints) {
                  $res .= $_->css;
                  $res .= $self->joiner;
            }
      }
      return $res;
}

1;

=head1 NAME

SQL::Builder::Hints - Represent any hints constructs

=head1 SYNOPSIS

	

=head1 DESCRIPTION

This is a subclass of SQL::Builder::List(3)

=head1 METHODS

=head1 SEE ALSO

SQL::Builder::UseIndex(3)

